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e Crear un programa еп visual Basic donde 
ingresando un indicador de cómo resultado el 
color en medio ácido, en medio básico e 
intervalo pH. 


Color Medio Color Medio Intervalo pH 
Acido Básico 


ROJO AMARILLO 12 28 


AMARILLO AZUL 3,0 - 4,6 
ANARANJADO AMARILLO 3,1 -4,4 


ROJO AMARILLO 4,2 - 6,3 
AMARILLO ROJO 4,8 - 6,4 


AMARILLO AZUL 7,2 - 8,8 


INCOLORO GROSELLA 8,3 - 10.0 


FORMULARIO: 
Ге Form1 г | 
INDICADOR 


COLOR MEDIO 4CIDO 
COLOR MEDIO BASICO 


INTERVALO pH 


Neutro __CERRAR | Básico 


CODIFICACION: 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button1.Click 


Dim CMA, CMB, IPH, | As string 

| = TextBox1.Text 

If | = "AZUL DE TIMOL" Then 
CMA = "ROJO" 
CMB = "AMARILLO" 
IPH = "1,2 - 2,8" 

Elself | = "AZUL DE BROMOFENOL" Then 
CMA = "AMARILLO" 
CMB = "AZUL" 
IPH = "3,0 - 4,6" 

Elself I = "NARANJA DE METILO" Then 
CMA = "ANARANJADO" 
CMB = "AMARILLO" 


IPH = "3,1 - 4,4" 
Elself | = "ROJO DE METILO" Then 
CMA = "ROJO" 


CMB = "AMARILLO" 
IPH = "4,2 - 6,3" 


Elself | = "AZUL DE CLOROFENOL" Then 
CMA = "AMARILLO" 
CMB = "ROJO" 

IPH="4,8 - 6,4" 

Elself | = "AZUL DE BROMOFENOL" Then 
CMA = "AMARILLO" 
CMB = "AZUL" 

IPH = "6,0 - 7,6" 

Elself | = "ROJO DE CRESOL" Then 
CMA = "AMARILLO" 
CMB = "ROJO" 

IPH = "7,2-8,8" 

Elself | = "FENOLFTALEINA" Then 
CMA = "INCOLORO" 

CMB = "GROSELLA" 
IPH = "8,3 - 10,0" 

End If 

TextBox2.Text = CMA 

TextBox3.Text = CMB 

TextBox4.Text = IPH 


End Sub 


e Crear un programa donde al ir ingresando los 
potenciales de hidrogeno (pH) de cómo 
resultados cuantos son ácidos, bases y 
neutros. 


FORMULARIO 


22 POTENCIAL DE HIDROGENO (PH): 


INGRESAR ELPH [ብተ 


ACIDOS | | 


NEUTRO | [—— j 
BASERLCAUNO] [— — — — 


CODIFICACION: 


Public NRO(19), | As Integer 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click 


NRO(I) = TextBox1.Text 
ListBox1.Items.Add(NRO(I)) 
TextBox1.Text = "" 
TextBox1.Focus() 

|=] +1 


End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click 


Dim K, AC, NE, BA As Integer 
K=l-1 
Forl=0To K 
If NRO(I) < 7 Then 
AC=AC+1 
Elself NRO(I) > 7 Then 
BA = BA + 1 
Else 
NE = NE + 1 
End If 
Next 
TextBox2.Text - AC 
TextBox3.Text = МЕ 
TextBox4.Text = BA 


End Sub 


Desarrollar un programa en Visual Basic que convierta una 
cantidad de grados en la escala Celsius a otras escalas 


(Kelvin, Fahrenheit y Rankine). 
(utilizar procedimientos) 


Dato: 
oC °F - 32 9K-273.115 58 - 492 


' S ' 
EQUIVALENTE É BORRAR 
\ ኣ 
ኣ EN 


Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 


Dim С, К, F, В As Double 
C = TextBox1.Text 
EQUIVALENTE (C, K, F, R) 
TextBox2.Text = K 
TextBox3.Text = F 
Textbox4.Text = В 

End Sub 


Sub EQUIVALENTE(ByVal С As Double, ByRef K As 
Double, ByRef F As Double, ByRef R As Double) 


K=C+273.15 

F=((9 * С) + 160) / 5 

В = ((9 * С) + 2460) / 5 
End Sub 


PROBLEIMA-04 


En un laboratorio se desea determinar la 
temperatura de una determinada sustancia, 
para lo cual se hacen 10 mediciones. 


Realizar un programa que determine: 
a) La temperatura promedio. 


b) La mayor y la menor temperatura obtenida 
durante las mediciones. 


SI 


SI 


Public ТМАУ, 5 As Double 
Public TMEN As Double = 9999 
Public X As Integer 


Private Sub Button1 Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 


Dim T As Double 

T = TextBox1.Text 

ListBox1.Items.Add(T) 

If T» TMAY Then 
TMAY ። T 

End If 

If T« TMEN Then 
TMEN ። T 

End If 

S=S+T 

X=X+1 

End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button2.Click 


Dim P As Double 
Р-5/Х 
TextBox2.Text = TMAY 
TextBox3.Text = TMEN 


TextBox4.Text = P 
End Sub 


PROBLEMA-04 


e En una planta de producción de cosméticos, los productos 
se clasifican como aceptables y no aceptables de acuerdo al 
porcentaje de impurezas que contiene dicho cosmético. 
Asi: 


% de impurezas categoría 


Aceptable 


e Realice un programa en donde se pueda ingresar los 
porcentajes de impureza de n cosméticos y determine 
cuantos de estos se ubican en cada una de las categorías ya 
mencionadas. 


Public ነ INC, ACP, LISTA(100) As Integer 


Private Sub Button1 Click(ByVal sender As System.Object,ByVal 
e As System.EventArgs) Handles Button1.Click 


LISTA( | ) = TextBox1.Text 
Listbox1.items.add(lista(i)) 
I=1+1 
TextBox1.Clear() 
TextBox1.Focus() 

End Sub 


Private Sub Button2 Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button2.Click 


Dim K As Integer 
K =| - 1 
For | = 0 To K 
If LISTA(I) >= 30 Then 
INC = INC + 1 
Else 
ACP = ACP + 1 
End If 
Next 
TextBox2.Text = ACP 
TextBox3.Text = INC 
End Sub 


PROBLEMA-05 


En una industria se vende acido clorhídrico de la siguiente forma: 


* Si se compra mas de 10,000ті; el precio por 100ml es 32.5 


dólares. 


* Si se compra pero más de 1,000ті; el 


precio рог 100 ml es 

* Si se compra 1,000ті o menos; el precio por 100 ml es 19.2 
dólares. 

* Un frasco de acido se compone por 100 ml, solo considerar la 
cantidad de frasco completo 


Se desea realizar un programa que escriba el precio total y la 
cantidad de frascos comprados, UTILIZAR FUNCIONES. 


ad Formi ох 
CALCULO DEL PRECIO У FRASCOS 


INGRESE EL VOLUMEN COMPRADO: 


ACEPTAR BORRAR 


PRECIO TOTAL DE COMPRA: 


FRASLOS TOTALES COMPRADOS: 


ERE mo No PU e eT ከስሜ ТИР meli 
As System.Object, ByVal e Аз 
System.EventArgs) Handles Buttonl.Click 


Dum CX IE NE -As Double 
TextBoxl.Text 


CAT COS YO (NAT 
CAL FRASC (VI) 


L МОГО ማእ E 


ike ro ክክ. ክህ 
EMO" Sub 


Pun LONO E j G Ea q AS Pou LS) as Ds ОЕМ 
Dim Х As Double 
IE vie OOOO Then 
= Inc va 100) 
CR S io 
pacer (VE cq When 
CE emu ON 
X Es CH ዜረ 
Else 


CE mV 7 100) 
x = በከ 5510,20 
End If 
Ce ki (SO a 


ШІСІ FUN eo n 


Oo ИЕМЕН РЕТ As 
Double) As Double 


Dim x AS Double 
ae (GIA AO) 


CAL FRASC = 


E CE ае а 


e ALGORITMO: 
MIENTRAS і « 100 HACER 


° SI Int( Rnd( ) * 6 +1) + Int( Rnd( ) * 6 +1) = 10 ENTONCES 
: c=c+1 

* FINSI 

° [=i +1 

° FIN-MIENTRAS 

e ESCRIBIR "Las veces que suman 10 son: " 

e ESCRIBIR с 

* FIN-PROGRAMA 


* Hacer un diagrama de flujo y un programa en 
Visual Basic tal que, en una matriz 
bidimensional de M filas y N columnas se 
rellene con números enteros generados 
aleatoriamente entre 50 y 100 y luego ingrese 
un numero entero cualquiera y diga cuantas 
veces el numero se encuentra en la matriz 


Diseñe un programa que genere números aleatorios 
en el intervalo de 10 a 99 hasta obtener un número cuya 
suma de sus cifras sea igual a 4 0 6. 

Muestre los números conforme se vayan generando y 
muestre al final: 

eLa cantidad de números generados. 

„El mayor numero generado 

*El menor numero generado. 


Ejercicio de matrices 


Almacene en una matriz de 3x2, 6 números y obtenga la cantidad 
de pares e impares. 


Busque un numero dentro de una matriz de 4x3 y determine la 
posición, y si existe no el numero buscado, también indicar si existe 
el numero la posición de la fila y columna donde se encuentra 
dicho numero. 


Dado una matriz A de 2x2 , la matriz B de 2x2, obtenga la suma de 
dichas matrices. 


Obtenga 6 números de una matriz 3x2, y obtenga el numero mayor 
y menor ingresado 


